home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / T-Script v3.0 / TScript 3.1.4 / TScript 3.1.4.rsrc / POST_256 < prev    next >
Encoding:
Text File  |  1992-02-10  |  1.4 KB  |  39 lines
  1. %!PS-TTS-1.0
  2. % Preview setup
  3.  
  4. statusdict /devicedict get begin
  5.  
  6. /Preview {
  7.   true false false false setframetype
  8.   deviceresolutionx dup 150 lt {3 idiv} {dup 300 lt {4 idiv} {5 idiv} ifelse} ifelse 45 /circlespot load setscreen
  9.   {} settransfer
  10.  
  11.   userdict /letter {statusdict begin 612 792 setdevicepapersize 576 768 setdevicepage end} put
  12.   userdict /legal {statusdict begin 612 1008 setdevicepapersize 576 992 setdevicepage end} put
  13.   userdict /tabloid {statusdict begin 792 1224 setdevicepapersize 756 1208 setdevicepage end} put
  14.   userdict /a3 {statusdict begin 842 1190 setdevicepapersize 806 1176 setdevicepage end} put
  15.   userdict /a4 {statusdict begin 595 842 setdevicepapersize 560 798 setdevicepage end} put
  16.   userdict /b5 {statusdict begin 499 709 setdevicepapersize 464 702 setdevicepage end} put
  17.   userdict /lettersmall {statusdict begin 612 792 setdevicepapersize 554 732 setdevicepage end} put
  18.   userdict /a4small {statusdict begin 595 842 setdevicepapersize 538 780 setdevicepage end} put
  19.  
  20.   /showproc {
  21.     statusdict begin
  22.     /jobstate (saving Preview) def
  23.     devicefile opendevicepage renderproc devicefile closedevicepage
  24.     /jobstate (busy) def
  25.     end
  26.   } def
  27.  
  28.   /setdevicepage {
  29.     devicescaley mul cvi /imageheight exch def
  30.     devicescalex mul cvi /imagewidth exch def
  31.     [devicescalex 0 0 devicescaley neg
  32.      imagewidth devicepaperwidth sub 2 div
  33.      imageheight devicepaperheight add 2 div] installdevice
  34.   } def
  35. } bind def
  36.  
  37. end
  38.  
  39.